home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 46
/
046.d81
/
code 64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
695b
|
24 lines
10 poke53281,0:poke53280,0
20 ifa=.thena=1:load"code 64.ml",8,1
30 printchr$(147)chr$(142)
110 print" [158]sys 49152 [159]toggles on and off...":print
115 print" when on, enter [158]_ [159]to find a code."
120 print" press [158]stop [159]to exit..."
125 print" do you want to create a binary file"
127 print" named 'code 64.ml-1'? ([158]y[159]/[158]n[159])"
130 geta$:ifa$<>"y"and a$<>"n"then130
140 ifa$="n"then1000
142 print" insert a destination disk and"
144 print" press [158]return[146][159]."
146 geta$:ifa$<>chr$(13)then146
150 sys57812"code 64.ml-1",8
160 poke193,0:poke194,192:poke174,44:poke175,193
170 sys62954
1000 print" do you want to return to"
1010 print" loadstar? ([158]y[159]/[158]n[159])"
1020 geta$:ifa$<>"y"anda$<>"n"then1020
1030 ifa$="n"thenend
1100 open15,8,15,"r0:hello connect=hello connect"
1110 input#15,er%:close15:ifer%<>63thenend
1120 load"hello connect",8